home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / superedt / s_pro.bas < prev    next >
BASIC Source File  |  1991-10-18  |  2KB  |  66 lines
  1. 1080 SCREEN@ 0:CLS:COLOR 7,0,7,0:DEFINT A-Z:WIDTH 80,25
  2. 1090 CONSOLE 0,24,2:PALETTE:PALETTE 15,[192,192,192]
  3. 1100 DEF FNDATA(X,I)=ASC(MID$(PRO$(I),X*2+21,1))
  4. 1110 DIM DAT$(5),PRO$(13+16),UNIT$(125),UNITNAME$(125)
  5. 1120 GOSUB *LOAD
  6. 1130 MOUSE 0:MOUSE 1,,,1
  7. 1140 FOR I=0 TO 125
  8. 1150 ' SYMBOL((I MOD 5)*128,(I\5)*8+256),UNITNAME$(I),1,.5!
  9. 1160 NEXT
  10. 1170 GOSUB *PRO_NAME
  11. 1180 WHILE MOUSE(2,0)=0:WEND
  12. 1190 X=MOUSE(0):Y=MOUSE(1)
  13. 1195 X=X\128:Y=Y\16:NO=X+Y*5
  14. 1200 IF Y>5 THEN 1180
  15. 1210 GOSUB *PRO_VIEW
  16. 1220 WHILE (MOUSE(2,0) OR MOUSE(2,1))=0:WEND
  17. 1230 GOTO 1170
  18. 9000 *PRO_NAME '----------------------------------------------------- 
  19. 9010 LINE(0,0)-(639,255),PSET,0,BF
  20. 9020 FOR I=0 TO 29
  21. 9030  SYMBOL((I MOD 5)*128,(I\5)*16),LEFT$(PRO$(I),16),1,1
  22. 9040 NEXT
  23. 9050 RETURN
  24. 9060 *PRO_VIEW '-----------------------------------------------------
  25. 9070 LINE(0,0)-(639,255),PSET,0,BF
  26. 9080 FOR I=0 TO 19
  27. 9090  A=FNDATA(I,NO):IF A>125 THEN 9110
  28. 9100  SYMBOL((I MOD 5)*128,(I\5)*16+16),UNITNAME$(FNDATA(I,NO)),1,1
  29. 9110 NEXT
  30. 9120 RETURN
  31. 10000 *LOAD '---------------------------------------------------------
  32. 10010 OPEN "B:UNITV.DAT" FOR INPUT AS #1
  33. 10020 DAT$(0)=INPUT$(6,1)
  34. 10030 FOR I=0 TO 13
  35. 10040  PRO$(I)=INPUT$(60,1)
  36. 10050 NEXT
  37. 10060 DAT$(1)=INPUT$(200,1)
  38. 10070 FOR I=0 TO 125
  39. 10080  UNITNAME$(I)=INPUT$(18,1):UNIT$(I)=INPUT$(62,1)
  40. 10090 NEXT
  41. 10100 DAT$(2)=INPUT$(70,1):CLOSE #1
  42. 10110 OPEN "B:UPTYPE.DAT" FOR INPUT AS #1
  43. 10120 FOR I=0 TO 15
  44. 10130  PRO$(I+14)=INPUT$(60,1)
  45. 10140 NEXT
  46. 10160 CLOSE #1
  47. 10170 RETURN
  48. 10240 *SAVE '--------------------------------------------------
  49. 10250 KILL"B:UNITV.DAT"
  50. 10260 OPEN "B:UNITV.DAT" FOR OUTPUT AS #1
  51. 10270 PRINT #1,DAT$(0);
  52. 10280 FOR I=0 TO 13
  53. 10290  PRINT #1,PRO$(I);
  54. 10300 NEXT
  55. 10310 PRINT #1,DAT$(1);
  56. 10320 FOR I=0 TO 125
  57. 10330  PRINT #1,UNITNAME$(I);UNIT$(I);
  58. 10340 NEXT
  59. 10350 PRINT #1,DAT$(2);:CLOSE #1
  60. 10360 KILL"B:UPTYPE.DAT"
  61. 10370 OPEN "B:UPTYPE.DAT" FOR OUTPUT AS #1
  62. 10380 FOR I=0 TO 15
  63. 10390  PRINT #1,PRO$(I+14);
  64. 10400 NEXT
  65. 10420 CLOSE #1
  66.